ElementType Find( List L, int m )
{
    PtrToNode fast = L;
    PtrToNode slow = L;
    int cnt = 0;

    while(slow)
    {
        slow = slow->Next;
        cnt++;
    }

    if(m > cnt)
    {
        return ERROR;
    }

    slow = L;
    
    while(m--)
    {
        fast = fast->Next;
    }

    while(fast && slow)
    {
        fast = fast->Next;
        slow = slow->Next;
    }

    return slow->Data;
}